﻿Public NotInheritable Class digitador
    Private Shared _digitador As New ucDigitador
    Private Sub New()
    End Sub
    Public Shared Property USUARIOLOGADO() As ucDigitador
        Get
            Return _digitador
        End Get

        Set(ByVal value As ucDigitador)
            _digitador = value
        End Set
    End Property
End Class
